home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / MUI / MCC_TimeText / Developer / Cluster / txt / MCCTimeText.mod < prev   
Encoding:
Text File  |  1997-07-27  |  744 b   |  33 lines
  1. |##########|
  2. |#MAGIC   #|GGBAEEAJ
  3. |#PROJECT #|"MuiImport"
  4. |#PATHS   #|"StdProject"
  5. |#LINK    #|""
  6. |#GUIDE   #|""
  7. |#STACK   #|"4096"
  8. |#FLAGS   #|xx---x--xxx--xx-----------------
  9. |#USERSW  #|--------------------------------
  10. |#USERMASK#|--------------------------------
  11. |#SWITCHES#|xx----xxxx-xx---
  12. |##########|
  13. IMPLEMENTATION MODULE MCCTimeText;
  14.  
  15. FROM MuiO IMPORT NewObjectA, MuiTagAPtr, DoMethodRef;
  16.  
  17.  
  18. PROCEDURE MakeTimeTextObjectA (tags : TimeTextTagAPtr) : TimeTextObject;
  19.  
  20. BEGIN
  21.   RETURN NewObjectA (cTimeText, MuiTagAPtr(tags));
  22. END MakeTimeTextObjectA;
  23.  
  24.  
  25. PROCEDURE MakeTimeTextObject (tags : LIST OF TimeTextTags) : TimeTextObject;
  26.  
  27. BEGIN
  28.   RETURN NewObjectA (cTimeText, MuiTagAPtr(tags[0]'PTR));
  29. END MakeTimeTextObject;
  30.  
  31.  
  32. END MCCTimeText.
  33.